AK 



s : implementation file 



#v 

#defr... 
#undef\ 
static die 
#endif 

///////////////>., 
// APostoffice 

MPLEMENT_DYNCREATE (A>. N 



' V//////////////////////> . 



X 



f i ce : : APostOf f i ce (> 

\ 

^ableAutomationQ ; 



keep the application 
object is active, tr. 

* - (null , " Postof f i ce" , 



tomation 
"kApp. 




// 
} 



x 



Af xol eu. 



~ation when all object 
the destructor call* 

" Postof f ice" ,MB_OK) ; 



void APostoffice: :OnFiru 

d 

// when the last rb 
// On Final Release is 
// deletes the object. 
// object before calling 

' vtessageBox(NULL , "OnFi nal Re . 

Xr, get : : OnFi nal Rel ease() ; 



s ject is released 
1 automatically 
-nred for your 



CO 

m 

CO 

H 



CD 
|— 

m 

o 
O 

3 



h Office, CCmdTarget) 
APostoffice) 

"'■he Classwizard will add d 



En. 

BEGINL. 



'mdTarget) 
r fice) 

x tName", GetName, VT_BSTR, 
N ^qe 1 

\ 



VTS^. 



APc v 

T 0N (APostOffice, "GetLOv 

APostOffice, "start", s 

*>stOffice, "Stop' 1 , Stop, 

"Office, "create", Crea 

c fice, "Getcomputer" , 

: ce, "Handshake", Hands*. 

"MapCErr" , MapCErr, VT_ 
^apcout" , MapCOut, VT_BU 
>se", close, vt_bool, 



//>X 

END.DISPATCHJV^ 

// Note: we add su K 
vy from VBA. This x ^ 
x^dispinterface in t» % 

s C57D0B-CE64-llCF-8BA l 
x onst IID IID_IAPOStO. 
"'Ob, 0xce64, Oxllcf, . 

X p_MAP(APostOffice, 

^_PART(APostOffice, ^ 



y/ TS_VARIANT 



support typesafe binding 
is attached to the 



Oxla, 0xe7, 0x8e } }; 



BOOL APo 
{ 

} 



retu 



"-8BAF-0000E81AE78E} 
toffice, "Eliza.Postu 
■\ Oxla, 0xe7, 0x8e) 

''////////////////////, 



^e, long Timeout) 
Timeout) ; 




BOOL APostOffice:. 
{ 

return CPostOi 

} 



- r STR APostOffice: :GetName() 



est ring strResult=CPostv 
return strResul t ,AllocSys> v 



^xllcf, 




fice: :GetLocal Ids (const 

*ept only array declared a^ 

' (VT_ARRAY I VT_BYREF | VT_I2) y 

"v* psa=*lds.pparray; 

-ayAccessData(psa, (void**X 
- Get Local Ids (pData , Max) ; 
\(psa); 



BOOL APOStv. 



Nje 2 



I 



APO^ 

■pf i ce : : StartTraf f i cqY 

Timeout) 

^Traffic(Timeout) ; 



BSTR APOStC, 

{ „ \ 

// TODO. 
char buftv 
DWORD leng= K 
GetComputerNai. x 
est ring strResu. 
return strResult\, 



-ode here 



office: : Handshake (lpl 



~ept only array dec! a. 
• (VT^ ARRAY | VT_BYREF | V . 
^* psa=*lds.pparray; 

% ayAccessData(psa, (vo> 
office: : Register (Name, 
N (psa); 



BOOL APostc 
{ 

return 

} 

BOOL APostof f i ce : : Ma^ 
{ 

return CPostOffiv 



"hort meth) 
^th); 



\ 



e 3 



APC. 

header file 



// V 

class _u 

{ \ 

DECLk n 

// Attributes 
public: 

\Ope rat ions 

\C I 



'V/////////////////////, 

re : public CCmdTarget, 



APostofficeC) ; 

-tual -APostOfficeQ , 



used by dynamic creation 



wizard generated vin. 
Vf >TUAL(APostOf fi ce) 



Final ReleaseO ; 



pr> 



<nctions 



//}}♦ 

DECLARE^ 
DECLARE_OL. 

// Generated c 

//{{AFX_DISPATCh. 

afx_msg BSTR GetNa. 
afxjnsg short GetLoe 
afx_msg BOOL startO; 
afx_msg BOOL Stop (long i 
afx_msg BOOL Create(LPCTS, 
N,(: x_msg BSTR GetComputerO ; 
Xmsjj BOOL Handshake(LPCTSTi 

'bool MapCErr (short revr, . 
OOL MapCOut (short revr, sK 
X close(long Timeout); 

H_MAP() 
' N!AP() 



-*.rd will add and remov 



short Max) ; 



^lSt VARIANT FAR& 



/// 



fc vy /////////////////////// , 



>e 1 



CPo. 



class Cto^ 
{ 



CPOStOi^ 
WORD rCVK 

CSt ring liti 



Mic: 



N 



CMsgS t ream (CPos tof > 

: po(_po) f re 



Nbuf: 

**\ underflowQ { retur. 
^verflow(int c) 

**nd(CMsg(0, rcvr.methjL. 



}; 

//= 




CRcvr: :CRcvr(WORD _ic 
: id(_id), poL 



cerr=: :cerr ; 
cout=: :cout; 



-CRcvrQ 



c fice(int nLd , int iLcl, . 
'r>(nLcl t iLcl) , clients(nRc 

' L), COUt(NULL) 



} 



^nt (NULL , TRUE f TRUE, NULL) ; 



CPOStOt . 
{ 



bEiv 



^ 1 



X. 
CK 



-igl eOb j ect (hTh readEndea , 
'hThreadEnded) ; x 



v rcvr, WORD meth) 



"this, rcvr, meth) ; 

• x { 



} 

return TRUE, 



cpostof f i ce : :MapCOut^ 

,Q .lete cout; 
Nut=cout=new CMsgStrt. 
nt i=0; i<GetSize(); 
CRcvr* pr=GetAt(i) ; 
"f(pr->isLocal()) 

pr->cout=cout ; 





int CPostOffiv 
{ 

for (int 

ifU 
return -1; 



CPostOf f i ce : : Get Local Ids v 

\ . 
\ int cnt=0; 

for(int i=0; i<GetSize(); » 

i f (GetAt (i ) ->lsLoca1 v 

v *ids++ = GetAt v 

cnt; 



" T R IpszName, DWORD tin. 



^e) ; 



*>dTo(int handle, CMsg& msg, 

0) && (handle<GetSizeQ) dtv 



// 
// 

class dfc. 



.public CRcvr 
s -qe 2 




X 



X. 

CK 



-lient ; 



BOOL ISLOv. 

void idleQ 



oarent, WORD id, CPostx. 



■q); 



x 



X 



office: : Register (LPC 

«ate new client 
'ient* pcli=new CPipe^ 
establish a link to 
N nen (Compute r , Name) ) 
NO; 

7e ; i ++) 

*nRcvr(pcli ,Ids[i] ,*th. 
<v(); 



*>RD Ids, int Size) 



x 



// 
// 
// 



BOOL CPOStOffic 
{ 

bEndThread=^. 
ResetEvent(hi. 
for (int i=0; i^ 

GetAt(i)- 
DWORD id; 

HANDLE hThread=Creat^ 
X^ return hThread!=NULL; 
\„ return AfxBeginThread(Th. 
return _begi nth read ((voidc. 



: , LPVOID(thi s) , 0 , &i d) ; 



"'VOlD(this)) !=-l; 



v 



} 

ULONG 
{ 



' ce : : stopTraf f i c (DWORD dwTi . 
4 — TRU E ; 

' tForSi ngl eob ject (hThreadEi* 

i=0; i<GetSize(); i++) 
> tAt(i)->OnStop() ; 



Nid param) 

^*0param; 
""age 3 



0; 




CK 

*->bEndThread) { x 
f ait for next message 61 
v oMsg=ppo->server . Read (> 
' -=null) { 

*o->Send(*pMsg) ; 
re pMsg; 



BOOL CPostOffice: . 

return server. 



=0 ; i <ppo->GetSi ze() ; 



x ^qe 4 

\ 



X, 



CPc. 



class CMsgSti x 
class CPostoft. 



// 



x 



Abstract clav 



X, 



x^decl spec (dl 1 expo rt j 



x 



N id; 

^ficeA po; 



ptu 



\ 



H °ostOf f i ce ; 

cerr, cout; 




\ 

WORD 
CPOStO. 

virtual BCk. 

virtual void G. 

virtual void id'k 

virtual void OnSto r 

virtual BOOL Receive (l. 



n & -po) ; 



po; } 



spec(dll export) CPostoffic 



x 



>r server; 
^eclient> clients; 
't; 

*cout ; 



■int iLcl=10, int nRem=20, 



BOO. 



S ^RD timeout=1000) ; 
N e 1 

X 



CK 

O { return server .GetNc^ 

/PWORD Ids, int max); v x 
"R Name, LPCSTR Compute. 

return SendTo(GetHand i 
TMsg& msg) ; 



BOOu x 

BOOL St* 
BOOL Stop. 

BOOL close(DWu 



?th); 



TTE) ; 



^e: 



noL bEndThread; 
^LE hThreadEnded; 
> ULONG stdcall Th. 



X 



-»ge 2 




ord m, LPCSTR str) 



n , str, size) ; 



\: :CMsg(CMsg& m) 



sndr=m.sndr; 



Nvr=m. rcvr; 
^H=m.meth; 
•n.size; 



°.mcpy(data=new byteU 




null; 



ize; 



BOOL CK 
{ 

Msy. 
DWORL 

delete . 
if(ReadPi 
(GetLastError()==EK 

sndr- 
rcvr=hu 
meth=hdr. 
size=hdr.s. 
if (! size) 

return 
data=new BYTE [si. 
\ if (ReadFile(hFile, N 

- TO r () ==ERROR_MORE_DATA) ) 
return TRUE; 



^bRead.NULL) || 



"ALSE; 



hFile, HANDLE hstop) 



xl; 

TRUE, FALSE, NULL) ; 



ovl ; 

events [0]; 
"V.hEvent); \ 
n hdr , si zeof (hdr) ,&cbRea^ 
^ob j ect s (2 , events , FALSE , 



*ok=wai t ForMul ti pi eObj N 



} 



<Cl oseHandl e (events [u. 
Nturn bok; 



*t); 

*7e f &cbRead,&ovl) ; 

*^ ==WAIT_OBD ECT_0 ; 



(HANDLE hFile) 



^izeof (hdr) ,&cbwrittei. 




4cbWritten,NULL) ; 



~^vge 2 



{ 



Wo. 
WORU 
WORD X 
WORD 
PBYTE 



hytes) 



'blic: 



CMsq(WORD S, WORD . 
S L) {} 

^sg(W0RD s, word r, i> 
^(CMsg&); 

-CMsgQ { delete [] 



const { return sndr; 
^nst { return rcvr; > 
x -t { return meth; } 
\{ return size; } 
r return data; } 




x 

//\ 
CMsgc 

BOOL Re. 

BOOL Reao v 

bool writer 



Nrn PCHAR(data); } 
PWORD(data); } 
PDWORD(data) ; } 



\ meth(m), size(O), 



^d r= r cv r=meth=0 ; } 

A - 



CPi pt N 

{ 
} 

CPipeClient: :~G 

if (hPipe!=lN x 
Closer 



HpeClient: :Open(LPCS» 

try to perform local 
^omputerName[256] ; 
' «ng=si zeof (ComputerNc. 
•nputerNameCcomputerNc 



^Computer [0]&&1 strcmp . 
- n \\pipe\\" + Name; 



[SECURITY 



IlTi x 

SetSe. 

SECURIi , 
sa.nLeng\. 
sa.lpsecun 
sa.blnheritHa. 



// open a connect 
while(l) { 

hPipe=Creater 

GENERIC 

o, 

NULL, 

OPEN_EXISTIK 
FILE_ATTRIBUTE_ 
NULL) ; 

i f (hPi pe ! =INVALID_HANDLE_V, 
break; 

^tLastErrorO !=ERROR_PIPE_ 
break; 

NamedPi pe(Path , 20000)) 
'^ak; 

HANDLE,. VALUE ; 

x 



SECURITY_DESCRIPTOR) nt 

d , SECURITY_DESCRIPTOR_ 
'E, NULL .FALSE); 



BOOL CPipt 




e 1 



X 




~>Write(hPipe) ; 



X 



NueQ 



FALSE, NULL); 



CPipeServers 
{ \ 
closeHai, 

} 



^OOL CPipeServer: :CMst, N 



if(!lsEmpty()) rex 
Jf (Timeout==0) retui. 
' ^(wai t Forsi ngl eobj ea. 

ResetEvent(hPut; 

return TRUE; 

'SE; 



^ { 



Xieue: :Get() 

''.TRUE) ; 
:Get(); 



} 

void CPipv 
{ 

CSing . 

TIQueuev 

setEventO. 

BOOL CPipeServer: :CMsgQu 

CSingleLock s1(&1ock 
x BOOL bEmpty=TlQueue<Civ 
return bEmpty; 



P) 



x 



BOOL CPi'l 
{ 



"•i peServer() 
(10,10) 



>ateEvent (null , true , false , , 





•ame; 

\pipe\Y'+Name; 
thread 
<-Stop); 



^imeout) 

"t)?MsgQueue.Get() :null; 



BOOL CPipeServ v 



if (! thready 

retu. x 
// global stop v 
SetEvent(hEventSv 
// wait for all th. 

DWORD 

% Mul ti pi eOb jects (thre^ 

Nt==WAIT_FAILED | | Wt- 

for(int i=0; i<thrc 

if (waitForSii. 
} 

m FALSE; 



h reads. Get Si ze () ; i++, 
^(threads[i]) ; 



"■RUE,dwTimeout) ; 

~ .TIMEOUT) { 



} X 

BOOL CPt, 

DWOk. 
HANDLL 

h=CreateThread(N 
if(h) { 



thrfc. 
Resume 
return v 

} 

return FALSE; 

return AfxBeginThreacK 

return _beginthread((vo» 



^TD(this) ,CREATE_SUSPEN. 



!=NULL; 

, 4096 , LPVOIDCthi s) ) 



N eServer: :ConnectionQ 



'ty. 



>c ,SCRIPTOR psd=(PSECURITY_D. 
MIN_LENGTH] ; 
v i tyDe s c r i pto r (psd , s ECURIT> _ 
' ntorDacl (psd , TRUE , null , fal 
sa; 

"-psd; 



// C» 



HAN. 




th, 



ACCESS_INBOUND | FILE_. 
~VPE_MESSAGE | 

^MODE^MESSAGE | 



T D_IN STANCES , 



// 

// BOOL 

bConn=ConnectNv 

OVERLAPK 

ovl .hEvent- 
ConnectNamea, 
DWORD dwErr=Ge* 
bool bconn= FALSE, 
i f (dwErr==ERROR_Pl. 

bConn=TRUE; 
else if (dwErr==ERROk_ 
// wait for conru 
HANDLE evnts[2]; 
evnts[0]=ovl .hEvent; 
•nts [1] =hEventStop ; 
^n=wai tForMul ti pi eOb j t. 



->tLastError()==ERROR_PIPt_ 



NULL) ; 

FALSE 



don't check. 



^ns connection 



-WAIT_OB3ECT_0; 



p=new 



} 



// 



cloi> 
Flushh 
Disconnt 
CloseHand i 
return 0; 



^xt thread 
n(); 

' this connection. . . 
CMsg; p->Read(hPipe,hu 



x 

x 



X 



H 



#in v 

#inclucu 
#include 

class decls^ 

{ 

HANDLE hPipt. 

CSt ring Name; 
CSt ring Path; 



^eclientp ; 

^1 ~CPipeClientQ ; 

r LPCSTR lpszcomputer, 
*^Msg*) ; 



cla. 
{ 



neserver 



est. 

class 
{ 



public: 



CMU 
HANDL. 



CMsgQueut 
-CMsgQueuev 
CMsg* GetO; 
void Put(CMsg*, 
BOOL isEmptyQ; 
BOOL Wait (DWORD Tl, 

"MsgQueue; 

'\ 

N N h Event Stop; 

'ANDLE> threads; 



^ue : public TlQueue<CK 



^r(); 



-zName) ; 

^Ut=INFINITE) ; 
N=INFINITE) ; 



X 




#11 . 

#defv 
#undef . 
static ch. 
#endif 

////////////////. 
// CPostof f i ceApp 

^.GIN_MESSAGE_MAP(CPO^ 

//{{AFX_MSG_MAP V 
// NOTE - 
// DO NO. 
'/}}AFX_MSG_MAP 
X.MAPQ 



X. 



V/////////////////////// , 



""V///////////////////. 
construction 

N offi ceApp Q 



t ruction code here, 
"icant initialization 



remove mapping macros he. 
blocks of generated code! 



V/////////// 



/////, 
// The 

CPostof fict. 

///////////////. 
// CPostof fi ceApp 

BOOL CPostof fi ceApp : . 

// Register all c 
// OLE libraries ^ 
COl eobject Factory: :Rv 

return TRUE; 



'V///////////////////, 
object 



V/////////////////////. 



nning. This enables ti. 
N applications. 



v ////////////////////////// . 
Ty points required for inp 

-Object (REFCLSID rclsid, Rl 

V TE (Af xGetStat i cModul estate 
N "Cl assob j ect ( rcl si d , r i i d , 



'//////////// 



{ 



X 



^i cModul estate () ) ; 



X 




POSl 

gisterserver, you can 
or(void) 

fxGetStati cModul estate ^ 
1 -»dat eRegi s t ryAl 1 () ; 



Postx 

: n header file for the i 



#incluu 
///////////, 

// CPOStOfflc 

// see Postoff . 
// 

^vlass CPostof f i ceApp 
•vc: 

v CPostofficeAppO ; 

Ns 



"x.h 1 before including ^ 

•nain symbols 

' /////////////////////// , 
of this class 



tasswizard generated 

X_VIRTUAL(CPOStOf f i Cc 

initlnstanceO ; 



N tOf f i ceApp) 

the Classwizard will . 
" EDIT what you see in 



}; 

////////////, 



/////////////////////* 



PO- 

" type library source K 

"ocessed by the Make Ty h 
^ry (PostOffice.tlb) . 

<;-0000E8lAE78E) , versic 

K 

{ \ 



\ 



// . 

[ uuid(5^ 
dispinterf* 

propert 



methods: 



Ids, short 



apos toff ice 
N 1AE78E) ] 



/ . 



// 

//{{AF,. 
//}}AFX_v. 



Britain property informatic 
: ting this section. 



// NOTE - Clasb. 
// Use extreme 
//{ {AFX_ODL_METHOD ^ 
r id(l)] BSTR GetNameu 
H(2)] short GetLocallc 
*^)] boolean start (); 

boolean Stop(long T, 
boolean create (BSTR Nu 
tr GetComputerO ; 
>an Handshake (BSTR Nai.. 

MapCErr(short rcvr, si. 
s oCOut(short rcvr, sho. 
N se(long Timeout); 



: nformation here, 
^ction. 



X 



}; 

// Class informax 

[ uuid(59c57D0C-CE64-„ 
coclass APostoffice 

,{ 

[default] dispinter. 



APPEND_ODL}} 



1 



PC 



type library source i 

processed by the Make T>, 
^ry (Postoffice.tlb) / 

'VF-0000E81AE78E) , vers 



// 

[ uuid(j 

dispinten. 

{ 

proper 



"V APostOffice 
^1AE78E) ] 



// 

//{{Ah 
//}}AFX_. 



intain property informarU s 
rting this section. 



methods : 



// NOTE - clas. 
// use extreme 
//{{AFX_ODL_METHOD v 



: nformation here, 
^ction. 



[id (1) 
: d(2) 



Ids, shore 



BSTR GetName^, 
short GetLoca'lx. 
boolean start () ; 
boolean Stop(long 1 . 
boolean Create (bstr Nu 
~tr GetComputer() ; 
" ean Handshake (bstr Na l( 

MapCErr(short revr, si. 
-»DCOut(short revr, shd 
N -*se(long Timeout); 



}; 

// 



Class informal 



[ uuid(59C57D0C-CE64-. 
coclass APostOffice 



[default] dispinter 



Xj\PPEND_ODL}} 



*1 C++ generated resourt. 



//, 

//v 

// • 
#i ncl ua<. 

////////////. 
#undef APSTUDx 

#ifdef APSTUDIO_IN. 
////////////////////, 

T EXTINCLUDE 



SYMBOLS 

'/////////////////////,, 

2 resource. 



'/////////////////////// . 



'////////////////////////, . 



UDE DISCARDABLE 
h\0" 



'DABLE 

X""\r\n" 



3 Tl. 

BEGIN 

"#def . 
■'#defin t 
"#define _ 

"\r\n" 

"#if !def, 

"#ifdef _wik 

"LANGUAGE 9, jl 

"#pragma code_pd 
"#end?f\r\n" 
"#include ""res\\Po. 
-•ources\r\n" 

"#include ""afxres. re"' 
'^endif" 



"CESXrXn" 
An" 



*i ned(AFX_TARG_ENU)\r\r. 



•soft visual C++ edited 
>ts\r\n" 



N v////////////////////////, . 

^UDIO_INVOKED 



V/////// 



LA. X 

#pra s> 
#endit 

//////////, 



"*ll) 1 1 defined (afx_targ_!e. 



V////////////////////////, 
Ne 1 



^NINFO 



#ifde. 

FILEFL, 

#e1se 

FILEFLAGS \* 
#endif 

FILEOS 0x4L 

FILETYPE 0x2L 
„ FILESUBTYPE OxOL 

^.GIN 

BLOCK "StringFi , 

BEGIN 

BLOCK "040904B0" 
BEGIN 



VALUE 'V 
VALUE "Fi . 
VALUE "Filev 
VALUE "interna 
value "Legal copy. 
value " Legal Traders 
VALUE "OnqinalFilen. 
\LUE "ProductName" , 
•IE "Productversion", 



L\0" 



~\0" 



<brary\0" 



v 



END 



0x409, 1200 



END 



\ 



X 



#endif 
#ifndef APSTUDIO_INVOKb> 



////////////////////// . 



'generated from the TEXTlNc 



* _ J AFX_NO_SPLITTER_RESOURCi- 
\AFX_NO_OLE_RESOURCES 

N FX_NO_TRACKER_RESOURCES 
\.NO_PROPERTY_RESOURCES 



' *,RESOURCE_DLL) II defined^ 



'//////////////////////, 



//////. 

#endif 



-c2" // non-Microsoft vi^ 
'tandard components 



v ///////////////////////// , 



N.ge 2 



rt 

~++ generated include f ■ 



• v objects 

/K 

#ifov 

#ifnde. 

#define _Ar 129 

#define _APS_ 7771 

#define _j\PS_Nt. r 0 

#define _aps_nexi_ 

#endif 

*endif 




:e file that includes 
-.h will be the pre-comp, 
*"> contain the pre-compv 




Stu 

file for standard sys^ 
*■ include files that ar^ 
^quently 



#0y 

#inclliu 
#include 

#ifndef _JVFX_ 
#include <afxo. 
#include <afxodlt, 
#include <afxdisp.t.. 
^endif // _J^FX_NO_OLt_ 



// Exclude rarely-useu 

core and standard compo. 
tensions 



-ses 

^ classes 
: on classes 



* _AFX_NO_DB_SUPPORT 

N <afxdb.h> 

AFX_NOJDB_SUPPORT 
*n_DAO_SUPPORT 

r >AO_SUPPORT 
v SUPPORT 



// Mh 



"°ORT 



<\ 1 
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